I made some little adjustments to Trevor's, switching in particular the z- 
and y-axes to standard POV-Ray orientation.

Added the randomization, which - by the way - takes extra parsing time of 
course.

#declare f_hf=
function{
  pattern {
    agate
    warp {turbulence chaos}
    scale resolution
  }
}

#declare bloks=
union{
  #declare Z=1;#while (Z<=resolution*10)
    #declare X=1;#while (X<=resolution*0.5)
      #declare Y=1;#while (Y<=resolution*2)
        #if (f_hf(X,Y,Z)>(1-densiti))
          box {<-RRand(0.4,2,R),-RRand(0.4,0.5,R),-RRand(0.4,1,R)>, 
<RRand(0.4,2,R),RRand(0.4,0.5,R),RRand(0.4,1,R)>
            translate<X,Y,Z>
            //pigment {rgb <RRand(0.9,1,R),RRand(0.9,1,R),RRand(0.9,1,R)>}
          }
        #end
      #declare Y=Y+1;#end
    #declare X=X+1;#end
  #declare Z=Z+1;#end
}

Image rendered in about 10 minutes by Megapov, with default radiosity 
(gray_threshold 0.5), resolution of 30, and chaos 2.

Thomas

Post a reply to this message

Attachments:
Download 'HKarsten_GreebleBlock.jpg' (170 KB)

Preview of image 'HKarsten_GreebleBlock.jpg'